home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_8474.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  92 lines
  1. -- card: 8474 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2612
  5. -- name: ImportPict
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=225 top=242 right=292 bottom=284
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 27056 / 27056
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Try This
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then pass mouseup
  23.   put "This will create a new stack for your pictures"
  24.   set lockmessages to true
  25.   put the long name of this stack into returnHere
  26.   put "Select the file you want to import pictures from..."
  27.   put filename()into getFromThis
  28.   if getFromThis is empty then
  29.     oops
  30.   else
  31.     put "Please name your new picture stack"
  32.     domenu "New Stack..."
  33.     put "Please wait..."
  34.     importpict(getFromThis)
  35.   end if
  36.   hide message window
  37.   set lockmessages to false
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 2 (button)
  43. -- low flags: 00
  44. -- high flags: A003
  45. -- rect: left=82 top=302 right=324 bottom=182
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Install
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   if the optionkey is down then pass mouseup
  57.   put installres(XCMD,ImportPict) into it
  58.   if it is empty then play oops
  59.   else answer it
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part contents for background part 13
  65. ----- text -----
  66. 7
  67.  
  68. -- part contents for background part 2
  69. ----- text -----
  70. ImportPict
  71.  
  72. -- part contents for background part 3
  73. ----- text -----
  74.  
  75. This will import all the PICTs from a file and put them into a stack, one picture per card.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83. Thanks to:
  84. Andy Hertzfeld (who?)
  85.  
  86. -- part contents for background part 10
  87. ----- text -----
  88. Syntax:
  89.  
  90. ImportPict <filename>
  91.  
  92.